module Util where
import Control.Exception
import System.IO.Error
raise = throwIO . AssertionFailed 

-- this join is rather inefficient, but it doesn't need to be
join :: String -> [String] -> String
join _         []      = ""
join _         [x]     = x
join separator (x:xs)  = x ++ separator ++ join separator xs
